MAURCIO TAKASHI COUTINHO WATANABE - exerccio 5

getwd()
setwd("C:/Users/Maurcio/Documents/aula5")

### Editando alguns parmetros grficos
esaligna <- read.csv(file="esaligna.csv", header=TRUE, sep=",", as.is=TRUE)
head(esaligna)
par(cex=2)
plot(esaligna$ht~esaligna$dap, xlab="DAP (cm)", bty="l", tcl=0.3, ylab="Altura (m)", main="Relao DAP x Altura em rvores de Eucalyptus saligna")


### Dois grficos juntos
par(mfrow=c(1,2))
boxplot(esaligna$dap~esaligna$talhao)
text(0.6,22.5,"A")
# Agora o segundo grfico

media.dap = aggregate(esaligna$dap,by=esaligna[3],FUN=mean) 
media.dap$dp = tapply(esaligna$dap, esaligna$talhao, FUN=sd)
media.dap
plot(media.dap$x~media.dap$talhao)
arrows(media.dap$talhao, media.dap$x, media.dap$talhao, c(media.dap$x+media.dap$dp, media.dap$x-media.dap$dp) , angle = 90, code = 2, length = 0.08)









